home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / exampleCode / opengl / utilities / isfast / libtk / image.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-02  |  4.7 KB  |  211 lines
  1. #include <stdio.h>
  2. #include <stdlib.h> 
  3. #include <string.h>
  4. #include "tk.h"
  5.  
  6. #if defined(__cplusplus) || defined(c_plusplus)
  7. #define class c_class
  8. #endif
  9.  
  10. /******************************************************************************/
  11.  
  12. typedef struct _rawImageRec {
  13.     unsigned short imagic;
  14.     unsigned short type;
  15.     unsigned short dim;
  16.     unsigned short sizeX, sizeY, sizeZ;
  17.     unsigned long min, max;
  18.     unsigned long wasteBytes;
  19.     char name[80];
  20.     unsigned long colorMap;
  21.     FILE *file;
  22.     unsigned char *tmp, *tmpR, *tmpG, *tmpB;
  23.     unsigned long rleEnd;
  24.     GLuint *rowStart;
  25.     GLint *rowSize;
  26. } rawImageRec;
  27.  
  28. /******************************************************************************/
  29.  
  30. static void ConvertShort(unsigned short *array, long length)
  31. {
  32.     unsigned long b1, b2;
  33.     unsigned char *ptr;
  34.  
  35.     ptr = (unsigned char *)array;
  36.     while (length--) {
  37.     b1 = *ptr++;
  38.     b2 = *ptr++;
  39.     *array++ = (b1 << 8) | (b2);
  40.     }
  41. }
  42.  
  43. static void ConvertLong(GLuint *array, long length)
  44. {
  45.     unsigned long b1, b2, b3, b4;
  46.     unsigned char *ptr;
  47.  
  48.     ptr = (unsigned char *)array;
  49.     while (length--) {
  50.     b1 = *ptr++;
  51.     b2 = *ptr++;
  52.     b3 = *ptr++;
  53.     b4 = *ptr++;
  54.     *array++ = (b1 << 24) | (b2 << 16) | (b3 << 8) | (b4);
  55.     }
  56. }
  57.  
  58. static rawImageRec *RawImageOpen(char *fileName)
  59. {
  60.     union {
  61.     int testWord;
  62.     char testByte[4];
  63.     } endianTest;
  64.     rawImageRec *raw;
  65.     GLenum swapFlag;
  66.     int x;
  67.  
  68.     endianTest.testWord = 1;
  69.     if (endianTest.testByte[0] == 1) {
  70.     swapFlag = GL_TRUE;
  71.     } else {
  72.     swapFlag = GL_FALSE;
  73.     }
  74.  
  75.     raw = (rawImageRec *)malloc(sizeof(rawImageRec));
  76.     if (raw == NULL) {
  77.     fprintf(stderr, "Out of memory!\n");
  78.     tkQuit();
  79.     }
  80.     if ((raw->file = fopen(fileName, "rb")) == NULL) {
  81.     perror(fileName);
  82.     tkQuit();
  83.     }
  84.  
  85.     fread(raw, 1, 12, raw->file);
  86.  
  87.     if (swapFlag) {
  88.     ConvertShort(&raw->imagic, 6);
  89.     }
  90.  
  91.     raw->tmp = (unsigned char *)malloc(raw->sizeX*256);
  92.     raw->tmpR = (unsigned char *)malloc(raw->sizeX*256);
  93.     raw->tmpG = (unsigned char *)malloc(raw->sizeX*256);
  94.     raw->tmpB = (unsigned char *)malloc(raw->sizeX*256);
  95.     if (raw->tmp == NULL || raw->tmpR == NULL || raw->tmpG == NULL ||
  96.     raw->tmpB == NULL) {
  97.     fprintf(stderr, "Out of memory!\n");
  98.     tkQuit();
  99.     }
  100.  
  101.     if ((raw->type & 0xFF00) == 0x0100) {
  102.     x = raw->sizeY * raw->sizeZ * sizeof(GLuint);
  103.     raw->rowStart = (GLuint *)malloc(x);
  104.     raw->rowSize = (GLint *)malloc(x);
  105.     if (raw->rowStart == NULL || raw->rowSize == NULL) {
  106.         fprintf(stderr, "Out of memory!\n");
  107.         tkQuit();
  108.     }
  109.     raw->rleEnd = 512 + (2 * x);
  110.     fseek(raw->file, 512, SEEK_SET);
  111.     fread(raw->rowStart, 1, x, raw->file);
  112.     fread(raw->rowSize, 1, x, raw->file);
  113.     if (swapFlag) {
  114.         ConvertLong(raw->rowStart, x/sizeof(GLuint));
  115.         ConvertLong((GLuint *)raw->rowSize, x/sizeof(GLint));
  116.     }
  117.     }
  118.     return raw;
  119. }
  120.  
  121. static void RawImageClose(rawImageRec *raw)
  122. {
  123.  
  124.     fclose(raw->file);
  125.     free(raw->tmp);
  126.     free(raw->tmpR);
  127.     free(raw->tmpG);
  128.     free(raw->tmpB);
  129.     free(raw);
  130. }
  131.  
  132. static void RawImageGetRow(rawImageRec *raw, unsigned char *buf, int y, int z)
  133. {
  134.     unsigned char *iPtr, *oPtr, pixel;
  135.     int count;
  136.  
  137.     if ((raw->type & 0xFF00) == 0x0100) {
  138.     fseek(raw->file, raw->rowStart[y+z*raw->sizeY], SEEK_SET);
  139.     fread(raw->tmp, 1, (unsigned int)raw->rowSize[y+z*raw->sizeY],
  140.           raw->file);
  141.  
  142.     iPtr = raw->tmp;
  143.     oPtr = buf;
  144.     while (1) {
  145.         pixel = *iPtr++;
  146.         count = (int)(pixel & 0x7F);
  147.         if (!count) {
  148.         return;
  149.         }
  150.         if (pixel & 0x80) {
  151.         while (count--) {
  152.             *oPtr++ = *iPtr++;
  153.         }
  154.         } else {
  155.         pixel = *iPtr++;
  156.         while (count--) {
  157.             *oPtr++ = pixel;
  158.         }
  159.         }
  160.     }
  161.     } else {
  162.     fseek(raw->file, 512+(y*raw->sizeX)+(z*raw->sizeX*raw->sizeY),
  163.           SEEK_SET);
  164.     fread(buf, 1, raw->sizeX, raw->file);
  165.     }
  166. }
  167.  
  168. static void RawImageGetData(rawImageRec *raw, TK_RGBImageRec *final)
  169. {
  170.     unsigned char *ptr;
  171.     int i, j;
  172.  
  173.     final->data = (unsigned char *)malloc((raw->sizeX+1)*(raw->sizeY+1)*4);
  174.     if (final->data == NULL) {
  175.     fprintf(stderr, "Out of memory!\n");
  176.     tkQuit();
  177.     }
  178.  
  179.     ptr = final->data;
  180.     for (i = 0; i < raw->sizeY; i++) {
  181.     RawImageGetRow(raw, raw->tmpR, i, 0);
  182.     RawImageGetRow(raw, raw->tmpG, i, 1);
  183.     RawImageGetRow(raw, raw->tmpB, i, 2);
  184.     for (j = 0; j < raw->sizeX; j++) {
  185.         *ptr++ = *(raw->tmpR + j);
  186.         *ptr++ = *(raw->tmpG + j);
  187.         *ptr++ = *(raw->tmpB + j);
  188.     }
  189.     }
  190. }
  191.  
  192. TK_RGBImageRec *tkRGBImageLoad(char *fileName)
  193. {
  194.     rawImageRec *raw;
  195.     TK_RGBImageRec *final;
  196.  
  197.     raw = RawImageOpen(fileName);
  198.     final = (TK_RGBImageRec *)malloc(sizeof(TK_RGBImageRec));
  199.     if (final == NULL) {
  200.     fprintf(stderr, "Out of memory!\n");
  201.     tkQuit();
  202.     }
  203.     final->sizeX = raw->sizeX;
  204.     final->sizeY = raw->sizeY;
  205.     RawImageGetData(raw, final);
  206.     RawImageClose(raw);
  207.     return final;
  208. }
  209.  
  210. /******************************************************************************/
  211.